
###################################################################################################
############################## Appendix A1 -- Summary Statistics ##################################
###################################################################################################


# Stata Code to Produce these Numbers
# use Data_OPO_Master.dta, clear
# keep if use==1

# tab sc_cert_outcome  if sc_cert_outcome !=2 
# tab sc_cert_outcome if sc_cert_outcome !=2 & no_odd_party_out ==1
# tab sc_cert_outcome  if sc_cert_outcome !=2 & panel_odd_party_out ==1
# tab sc_cert_outcome  if sc_cert_outcome !=2 & respondent_odd_party_out  ==1
# tab sc_cert_outcome if sc_cert_outcome !=2 & petitioner_odd_party_out ==1

case0 <- 12.6
case1 <- 13.0
case2 <- 14.8
case3 <-  13.8 
case4 <- 9.0


counts <- c(case0,case1,case2,case3,case4)


par(mfrow=c(1,1),mar=c(4, 5, 3, 2),las=1)
barplot(counts,col=c("lightcoral"),names.arg=c("0 \n Overall","1 \n No OPO","2 \n Panel OPO","3 \n Respondent OPO","4 \n Petitioner OPO"),ylim=c(0,20),ylab="% of Granted Cert Petitions With COA Affirmed",main="",axes=F,density=c(40,40,40,40,40))

y.axis <- c(0,2,4,6,8,10,12,14,16,18,20)
Y <- c("0","2","4","6","8","10","12","14","16","18","20")
axis(2,at = y.axis,labels=Y)



text(0.7,12.6+0.75,"12.6%")
text(1.9,13+0.75,"13.0%")
text(3.1,14.8+0.75,"14.8%")
text(4.3,13.8+0.75,"13.8%")
text(5.5,9+0.75,"9.0%")



